home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
SCIENTIF
/
0428.ZIP
/
NMR0.BAS
< prev
next >
Wrap
BASIC Source File
|
1985-04-19
|
736b
|
22 lines
10 'Program "NMR0"--Entry to NMRCALC routines.
20 DEFINT I-N
30 'COMMON IPFLAG,IREAD,FF$
31 IPFLAG = 0: IREAD = 0: FF$ = "null"
32 OPEN "scratch.nmr" FOR OUTPUT AS #1
33 PRINT #1, IPFLAG: PRINT #1, IREAD: PRINT #1, FF$
34 CLOSE #1
40 SCREEN 0:COLOR 14,4,1:CLS
50 KEY OFF
60 PRINT:PRINT"Program NMRCALC"
70 PRINT:PRINT"Milton D. Johnston, Jr."
80 PRINT"Department of Chemistry"
90 PRINT"University of South Florida"
100 PRINT"Tampa, Florida 33620"
110 PRINT:PRINT"October 17, 1984 (Revised: January 26, 1985)"
120 PRINT:PRINT"813-974-2535"
130 GOSUB 170
140 CLS:PRINT :PRINT"To get the menu, execute the 'ME' command."
150 GOSUB 170
160 CHAIN "NMR1"
170 PRINT: INPUT"Hit <Return> to continue.",A$: PRINT: RETURN